home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / e_modules02.lha / e_modules02 / framework / easyWindow.e < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.3 KB  |  47 lines
  1. -> moduî OO definiujâcy dostëp do easygui z poziomu FW!
  2. -> abstrakcyjna klasa do obsîugi okienek tworzonych za pomocâ EasyGui
  3. -> (c)'96 Piotr Gapiïski (31.03.96)
  4.  
  5. OPT MODULE
  6. OPT EXPORT, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui','fw/wbObject',
  9.        'intuition/intuition','exec/ports'
  10.  
  11. OBJECT easyWindow OF wbObject
  12.   window: PTR TO window
  13.   handle: PTR TO guihandle
  14. ENDOBJECT
  15.  
  16. -> konstruktor
  17. -> zwraca FALSE w przypadku niepowodzenia
  18. PROC create(windowtitle,gui,info=NIL,screen=NIL,
  19.      textattr=NIL,newmenus=NIL) OF easyWindow HANDLE
  20.   self.handle:=guiinit(windowtitle,gui,info,screen,textattr,newmenus)
  21.   self.window:=self.handle.wnd
  22.   IF newmenus=NIL THEN self.window.flags:=self.window.flags OR WFLG_RMBTRAP
  23.   RETURN TRUE
  24. EXCEPT
  25.   self.remove()
  26. ENDPROC FALSE
  27.  
  28. -> destruktor
  29. PROC remove() OF easyWindow
  30.   IF self.handle THEN cleangui(self.handle)
  31.   self.handle:=NIL
  32.   self.window:=NIL
  33. ENDPROC
  34.  
  35. -> bit sygnalizacyjny EXECa naleûâcy do obiektu
  36. PROC signal() OF easyWindow IS self.window.userport.sigbit
  37.  
  38. -> obsîuguje zdarzenia gdy obiekt jest aktywowany
  39. PROC handleActivation() OF easyWindow
  40.   DEF res
  41.   res:=guimessage(self.handle)
  42.   IF res>-1 THEN res:=self.handleMessage(res)
  43. ENDPROC res
  44.  
  45. -> obsîuguje wiadomoôci napîywajâce do obiektu
  46. PROC handleMessage(info) OF easyWindow IS STOPALL
  47.